home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CUJ9206.ARJ / 1006088B < prev    next >
Text File  |  1992-06-02  |  384b  |  26 lines
  1. /* LISTING 2 */
  2.  
  3. static double c[200];
  4.  
  5. f2() 
  6. {
  7.     int i;
  8.     double a[200], b[200];
  9.     double *p, *q, *r;
  10.  
  11.     p = a; q = b; r = c;
  12.  
  13.     for( i=0; i<200; ++i )
  14.         *p++ = *q++ / *r++;
  15.  
  16.     p = a; q = a; r = c;
  17.  
  18.     for( i=0; i<200; ++i )
  19.         *p++ = *q++ / *r++;
  20.  
  21.     p = a+1; q = a; r = b;
  22.  
  23.     for( i=1; i<200; ++i )
  24.         *p++ = *q++ / *r++;
  25. }
  26.